Figure 1: A typical DelphiFinger session. 
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By Gregory Lee 


Adding Winsock Capability to Your Delphi Applications 


he Internet. The next wave in the computer revolution — or just a shoot- 
T ing star? The answer may well depend on programs currently being 
developed. It’s an exciting time to be a software developer — potentially a 
very profitable time, if you can capitalize on the promise of the Internet. 


Unfortunately, the books focusing on pro- 
gramming for the Internet have been writ- 
ten for the C/C++ and Java communities. 
The good news, however, is that you can 
program for the Internet using Delphi — 
you just have to be persistent. If you've 
never used Delphi to call a DLL, nor cre- 
ated a special message handler, you may 
think Winsock programming is a complex 
— perhaps even insurmountable — task. 


Take your time. Read the information 
thoroughly to get a broad understanding 
of the topic. Then reread any portions that 
remain unclear to you. If you need a more 
thorough explanation of implementation 
details, you can always refer to your 
Delphi manuals. Above all, stick with it. 
In the end you'll be glad you made the 
effort. 


DelphiFinger 

Perhaps the best way to learn any program- 
ming technique is by example. So let’s dive 
right in with one of the simpler Internet 
programs — a Finger 
client. Simply put, the 
Finger protocol allows 
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another Internet user. 
Supply the Finger 
client with a valid 
Internet e-mail 


address, and the pro- 


gram locates the host system, connects to 
the Finger server, sends it the user’s name, 
and displays the reply. The process is similar 
to making a phone call, and an effective 
way to visualize the process. Figure 1 shows 
the results of a typical DelphiFinger session. 


Before we delve into this implementation of 
Finger, a caveat is in order: Finger is an 
optional Internet service that many of the 
large online services, and some private 
Internet providers, have decided not to 
offer. For example, if you enter a 
CompuServe or an America Online e-mail 
address you may receive a message such as 
“Connection refused.” In fact, you may not 
receive any reply. The most likely reason for 
this is that the system’s administrator sees 
the Finger service as a potential security 
problem. Rather than limiting the amount 
of information available, the administrator 
simply decided not to offer it. 


For a complete description of the Finger pro- 
tocol, I recommend you read RFC 1288, 
“The Finger User Information Protocol” by 
D. Zimmerman (see Figure 2). RFC is the 
acronym for Request For Comment, and virtu- 
ally every Internet standard is documented 
somewhere in an RFC file. Here are some 
Web sites containing indexes you can browse 
to find RFC documents: 

m http://www.rasip.etf-hr/rfc/rfc.1.html 

m http://www.neda.com 

m http://www.rfc-index.html 
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Netscape - [# RFC INDEX for RFC's 1200 - 1299] 
File Edit View Go Bookmarks Options Directory 


Location: |http://www.neda.com/ds/rfc-index. 1200-1299. html 


V. Aggarwal, - ca ; 


arw Vud-Level Networks: Potentia ervices 


Handbook 
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ages=10 


J. Martin, "There's Gold in them thar Networks! or Searching for Treasure in all the Wrong Places", 
12/31/1991. (Pages=27) (Format=.txt) (FYI 10) (Obsoleted by RFC1402) 


1289 PS 
J. Saperia, "DECnet Phase IV MIB Extensions", 12/20/1991. (Pages=64) (Format= txt) (Obsoleted by 
RFC1559 


1288 DS 
D. Zimmerman, "The Finger User Information Protocol", 12/19/1991. (Pages=12) (Format= txt) 
(Obsoletes RFC1196 


R. Braden, V. Cerf, L. Chapin, D. Clark, R. Hobby, "Towards the Future Internet Architecture", 
12/12/1991. Pages=29) (Format= txt) 


1286 PS 
K. McCloghrie, E. Decker, P. Langille, A. Rijsinghani, "Definitions of Managed Objects for Bridges", 
12/11/1991. (@Pages=40) (Format= txt) (Obsoleted by RFC1493, RFC1525 
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Figure 2: The Web site, www.neda.com, contains an index to all 
RFC documents. 


The Windows Sockets Library 

Winsock is the Windows version of the original Berkeley 
sockets interface. The sockets interface was developed to pro- 
vide a simple application programming interface (API) for 
network applications based on the TCP/IP network protocol. 


You don't need to understand what the TCP/IP protocol is or 
how it works to use Winsock. However, you do need 
WINSOCK.DLL and a basic knowledge of the functions avail- 
able. In this article, we'll touch on some of the commonly used 
functions with enough explanation to get you started. For a 
more detailed description and a complete list of the functions 
available, you should consult the Windows Sockets Specification. 
This document is available on the Internet in Windows Help 
file format, HTML, and a variety of other common formats. 


Because Winsock is a normal DLL, you can access its func- 
tions as you would with any other DLL — either declare the 
functions as “externals” and let Delphi handle the details, or 
use the LoadLibrary and GetProcAddress functions to do it 
yourself. The trick, of course, is knowing which of Winsock’s 
44 functions to use and when to use them. 


In our DelphiFinger project, WINSOCK.PAS contains all the 
Winsock function prototypes, and the WINSOCK.DLL index 
numbers for these functions (see Listing One on page 29). The 
included file for Delphi 2 users is WSOCK32.PAS. Although 
most of the functions aren't used, they've all been included in 
WINSOCK.PAS so you can use that file in future projects with- 
out having to worry about adding new prototypes. You will also 
notice many Winsock constants, record types, and error messages 


have also been defined in WINSOCK.PAS and WSOCK.PAS. 


If youre using Delphi 2, please see “A Note to Delphi 2 
Users” on page 26. This sidebar outlines considerations for 
those using the 32-bit version of Delphi. 


Getting Started 


In a typical DelphiFinger session the user enters an Internet 
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user name and host name and then clicks on the Connect 
button. This is our cue to initiate the Finger conversation. 
Before we can do anything useful with the Winsock library, 
however, we have to call the WSAStartup function: 


function WSAStartup(Version: Word; 
WSDataAddr: PWSAData): 


Integer ; 
WSAStartup takes two arguments: the first indicates the version 
of Windows Sockets you're looking for, and the second is the 
address of a TWSADaza record buffer. The 7WSADaza record is 
a special structure defined in the Windows Sockets Specification. 
It’s used by the WSAStartup function to store information about 
the version of WINSOCK.DLL youre using. 


Whether youre interested in the information returned in the 
TWSAData record or not (and we're not), you still have to 
call WSAStartup before calling any other Winsock function. 
If an error occurs, WSAStartup will return an error code. A 
return value of zero indicates success. 


Searching for the Host Address 

We now know Winsock is alive and well, so we can begin 
the process to locate the remote system and Finger server. To 
accomplish this we use the Winsock function, 
WSAAsyncGetHostByName. Dont be intimidated by its long 
name; although it’s a mouthful, WSAAsyncGetHostByName is 
a fairly simple function. Given the name of a host system, 
WSAAsyncGetHostByName searches for that system's IP 
address; you can compare it to calling directory assistance to 
find a telephone number. 


The Asyne part of this function’s name refers to the fact that 
the task is performed in the background. When we call 
WSAAsyncGetHostByName, it initiates the task but returns 
before the job is done. Winsock will inform the user when the 
task has completed and the information is ready. This is very 
convenient because locating the host system’s IP address could 
be time consuming. If the search takes too long, the person 
using the Finger client may think the program has locked up. 


A major benefit of asynchronous processing is that the sys- 
tem can do other things while it’s waiting. Remember, 
Windows is a cooperative multi-tasking system. Calling 
functions that “take over” the system for an extended period 
of time is not just bad manners — it violates the prime 
directive of this operating system. 


WSAAsyncGetHostByName takes five parameters: 


function WSAAsyncGetHostByName (Window: HWnd; 


Msg: Word; 

Name: PChar; 

Host: PHostInfo; 

Size: Integer): THandle; 


1) The handle of the window you want Winsock to notify 
when the process is finished. 

2) The message you want Winsock to use when it calls you 
back. Unless you're writing Delphi components, you gen- 
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erally don’t need to worry about window handles and 
message numbers. Rest assured, however, Delphi is keep- 
ing track of all this stuff and you can access it if you really 
want to. In our example, we want Winsock to call us 
back through the main form and we'll create a new mes- 
sage number for it to use. 

3) The name of the host we're trying to find. 

4) A pointer to the record where Winsock can store the host 
information. 


5) The record’s size. 


Like the 7WSAData record used with WSASzartup, the 
THostlInfo record is based on a special structure defined in 
the Windows Sockets Specification. This record is used by 
WSAAsyncGetHostByName to store information about a 
host system. 


If you check the Windows Sockets Specification, youl notice 
that our 7HostInfo record doesn’t quite match the original 
hostent structure. Specifically, a 1K buffer has been added at 
the end because Winsock needs some extra room to store the 
data to which the other members of the structure will point. 


As long as WSAAsyncGetHostByName doesn't immediately 
run into a brick wall, the function will return a handle for 
the new task. If the handle is nil, something went wrong. 
We're dead in the water and the only thing left to do is 
report the error. Luckily, Winsock provides a function to 
determine exactly what went wrong — WSAGetLastError. 
It takes no arguments and simply returns an error code cor- 
responding to the last Winsock function called. In the 
DelphiFinger function WinsockError, this error code is used 
to find an appropriate message string and display the error 
to the user. 


For now, let’s assume everything has performed without a 
hitch: WSAStartup returned cleanly and our 
WSAAsyncGetHostByName call returned something other than 


nil. Now what? 
We wait. 


Somewhere in the background the wheels are turning. 
Eventually, the host name lookup will finish and Winsock will 
tell us the result. We'll intercept the message with a special 
message handler, check out the new IP address, and proceed to 
the next step. 


There’s more than one way to create a message handler in 
Delphi. The simplest way, however, is to create the procedure 
somewhere in the program's body. Then, you declare the proce- 
dure, along with the message it will intercept, in the protected 
section of the form’s definition. In this case the message will be 
returned to Form1, so that’s where we've placed the declaration. 


Message handlers always receive a record structure containing 


the wParam and [Param values associated with a typical 
Windows message callback. For Winsock lookup functions, 
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A Note to Delphi 2 Users 


Some minor changes are required to make DelphiFinger work 

with Delphi 2: 

m Since the size of the /nteger data type in Delphi has increased 
from 16- to 32-bits, all the integers used in the WINSOCK 
records and function prototypes must be changed to the new 
type Smallint. Items already declared as Smallint or Longint 
should be left as they are. 

m Because the 32-bit version of WINSOCK is called 
WSOCK32, this name must be changed in each DLL func- 
tion prototype. 

m The default Delphi calling convention has been changed. 
This means you must add the stdcall declaration to the end 
of each DLL function prototype. 

m Delphi 2 now includes a WINSOCK.PAS unit. Therefore, 
you should rename the WINSOCK.PAS file included to 
WSOCK32.PAS and make the corresponding change to the 
uses section of FINGER.PAS. 


— Gregory Lee 


wParam contains the task handle returned by the original 
function call and the high word of /Param indicates the task 
completion status. If the WSAAsyncGetHostByName task suc- 
ceeds, the status code is zero and our record will contain at 
least one IP address for the host system. 


Locating the Finger Server 

Great! We have the host system's IP address. Now we need to 
find the location of the Finger server. In our phone call anal- 
ogy, this step is similar to using a company directory to find 

an extension number. To accomplish this, we use the 


Winsock function WSAAsyncGetServByName: 


function WSAAsyncGetServByName (Window: HWnd; 
Msg: Word; 
ServiceName: PChar; 
ProtocolName: PChar; 
Server: PServerInfo; 
Size: Integer): THandle; 


As youve probably already guessed, WSAAsyncGetServByName 
is another callback function and takes six parameters. The first 
two are a window handle and a message value. The third and 
fourth parameters are strings indicating the name of the ser- 
vice we're interested in, and the name of the underlying proto- 
col (in this case the values should be finger and tcp). The 
fifth parameter is the address of a record where Winsock can 
store the server information, and the sixth parameter indicates 
the record's size. 


As was the case with THostInfo, the TServerInfo record is based 
on a special structure defined in the Windows Sockets 
Specification. WSAAsyncGetServByName uses this record to store 
information about a server. Again weve added a 1K buffer to 
the end of the record for Winsock to store the data it collected. 


When the function call is made, WSAAsyncGetServByName 
sets the new task in motion and quickly returns. Just as 
Winsock did with the previous function, 
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WSAAsyncGetServByName will send a message to our form 
when the task is complete and we'll have another special mes- 
sage handler waiting to intercept it. 


Making the Call 


At this point we know the location of the host’s address and 
where to find the Finger server. Of course, before we can 
actually communicate with the Finger server, we must open a 
line for communication. 


In Winsock, this process requires three steps. Creating the sock- 
et itself is accomplished by calling the Winsock function socket: 


function socket(AddressFormat: Integer; 
SocketType: Integer; 
Protocol: Integer): 


Integer; 

The socket function takes three parameters: the address family, 
communication type, and the protocol to use with the new 
socket. For this application (and just about any other youll 
probably write), we use the Internet address family, creating a 
stream type socket, and using the TCP protocol. For each of 
these arguments, constant values are defined in 
WINSOCK.PAS, and, as you can see, we're using them in the 
call to socket. If the socket function is successful, it returns a valid 


socket handle. Otherwise, it returns INVALID _SOCKET. 


Before we can place the call, we must tell Winsock to handle 
this socket 100 percent asynchronously. The Winsock func- 
tion designed for this purpose is WSAAsyncSelect: 


function WSAAsyncSelect( Socket: THandle; 
Window: HWnd; 
Msg: Word; 
Event: LongInt): 


Integer; 
WSAAsyncSelect takes four parameters: the socket descriptor; 
the handle of the window that should receive notification 
messages; the message we want Winsock to use; and an event 
bitmask specifying the events we want handled in this way. 


There Can Be Only One 
Notice that although WSAAsyncSelect can apply to various 


operations — connecting, reading, writing, closing the sock- 
et, etc. — you can only specify a single callback message. 
This means that from this point, only one message handling 
procedure can handle all the messages. 


You might guess that by calling WSAAsyncSelect a number of 
times, passing a different message and event bitmask pair 
each time, you could configure a whole series of message han- 
dling procedures tied to different events — this sounds logi- 
cal. Unfortunately, that’s not the way it works. 


Each call to WSAAsyncSelect completely resets the status of the 
socket’s event handler. For example, if you call WSAAsyncSelect 
once with the event bitmask set for read events and then 
immediately call it a second time with the event bitmask set 
for write events, the second call will reset the event handler 
and only write events will be handled asynchronously. 
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Describes the format of an Internet address. 
The only address format currently supported by 
Winsock is the ARPA Internet address format. 


An application that initiates a connection and 
communicates with a server. 
Hypertext Markup Language. The language 
used to create pages on the World Wide Web. 
Many public domain documents and 


Address 
Format 


specifications are currently available in this 
format. 


IP Address A number used to locate a user or service on 
the Internet. In the current specification, this is 
a 32-bit number and is commonly displayed in 
dotted decimal notation. Dotted decimal nota- 
tion disseminates the address into individual 
bytes and lists the decimal equivalent of each 
byte. For example, the IP address $FFFFOOO1 is 
represented in dotted decimal form as 
255.255.0.1. 


An application that provides a service; it does not 
generally initiate connections. Instead, the server 
waits at a well-known location and waits 

for client applications to connect with it. 


The line of communication used on the Internet 
to communicate with another user or service. 


TCP/IP Transmission Control Protocol/Internet Protocol. 
This is the basic, underlying protocol suite used 
to control the flow of information over the 


Internet. For a detailed description see the 
documents RFC793 (TCP) and RFC791 (IP). 


The Windows implementation of the original 
Berkeley sockets interface. 
The library containing the functions described 
in the Windows Socket Specification. 

| WSOCK32.DLL The 32-bit version of WINSOCK.DLL. 


Which Is Which? 


If we can't assign separate event handlers for the different oper- 
ations, how do we distinguish callbacks? When a Winsock 
makes a notification call, a portion of the record it passes to 





our callback routine contains the bitmask corresponding to the 
reason for the callback. For example, when incoming data is 
waiting and ready to be received, the bitmask passed into our 
callback routine will contain the constant value FD_READ. 


Making the Connection 

We've set the stage with WSAAsyncSelect. Now we're ready to 
place the call. The Winsock function connect is designed to 
do just that: 


function connect(Socket: THandle; 
Address: PSocketAddress; 
Size: Integer): Integer; 


The connect function takes three parameters: 
1) our socket handle 

2) the address of a 7SocketAddress record 

3) the size of the 7SocketAddress record 


The TSocketAddress record is based on a special structure 
defined in the Windows Sockets Specification. The address 
member is the IP address we want to connect to and the port 
number is the Finger server’s port number. When connect is 
called, the process is initiated and it returns immediately with 
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an error code or a zero. A zero indicates the task has been 
started. Eventually, we'll receive a message indicating whether 
connect has succeeded. 


When the call goes through, Winsock sends the message 
MsgAsyncEvent to Form! and the low word of /Param con- 
tains the constant FD_ CONNECT. It’s now time to commu- 
nicate with the Finger server. 


Hangin’ on the Telephone 

The Finger server's job is pretty boring — it just sits there, 
listening and waiting for someone to call. Periodically, the 
phone rings and the Finger server picks up the line. To save 
time and keep things simple, the Finger server doesn’t both- 
er saying “Hello.” The client is responsible for keeping 
things going by sending a query to the server. The query in 
this case is just the name of the user we're interested in, fol- 
lowed by a carriage return and linefeed characters. 


The Winsock function for sending our query is called send: 


function send( Socket: THandle; 


Buffer: PChar; 
Size: Integer; 
Flags: Integer): Integer; 


The send function requires the socket descriptor, a pointer 
to the message we want to send, the message’s length, and 
an options flag. If everything looks good, send starts the 
task and returns immediately. If something goes drastically 
wrong, send returns an error message. Eventually, when the 
task is complete, our message handler receives yet another 


callback. 


This time Winsock sends Form1 another MsgAsyncEvent mes- 
sage. Now, however, the low word of /Param will contain 
FD_WRITE. Since there is no additional data to send, we'll 
ignore the FD_WRITE callback. 


It’s up to the Finger server on the host system to process the 
query and send us a reply. When the reply arrives, we receive 
another MsgAsyncEvent message. This time the low word of 
[Param contains FD READ. The Winsock function recv is 


used to obtain the reply: 


function recv( Socket: THandle; 


Buffer: PChar; 
Size: Integer; 
Flags: Integer): Integer; 
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Closing the Connection 

We have the reply and are now done talking with the 
Finger server. It’s time to hang up the phone. Typically, the 
Finger server will hang up its end of the line before we've 
even had a chance to process all the data it’s sent. When 
that happens, we receive an MsgAsyncEvent message for the 
FD_CLOSE event and, after we've handled any remaining 


data in the buffer, we can close our end of the connection. 


Winsock provides the function, closesocket, to close the line and 
free all the resources associated with the socket. If it’s successful, 


closesocket returns zero. If not, it returns SOCKET ERROR. 


Even if closesocket works, we're still not quite off the hook. 
There’s one last function we're obligated to call: WSAC/leanup. 
This function de-registers the Finger client and allows Winsock 
to release any resources it has allocated on our behalf. 


Conclusion 

At this point you might be thinking, “If DelphiFinger is 
one of the simplest Internet applications, I don’t even 
want to know what's involved in creating something like 
an e-mail client.” Our little Finger client zs one of the 
more basic Internet applications, but it uses many of the 
core Winsock functions. On the surface, an e-mail or FTP 
client may seem exponentially more complex, but from a 
programming standpoint, it’s really not. Once you under- 
stand the fundamentals, writing Internet applications in 


Delphi is not very difficult. A 


The demonstration files referenced in this article are available on 
the Delphi Informant Works CD located in 
INFORM\96\AUG\DI9608GL. 


Gregory Lee is a programmer with over 15 years of experience writing applications 
and development tools. He is currently the president of Sottware Avenue Inc., 
which has just released a package for Delphi developers called the “Internet 
Developer's Kit” (see the “Tools” section of the June 1996 Delphi Informant). 
Greg can be reached by e-mail at 76455.3236@compuserve.com. 
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Begin Listing One — WINSOCK.PAS 


unit Winsock; 
interface 


uses 
WinTypes, WinProcs, Messages; 


const 
{ New messages for asynchronous callbacks } 
MsgHostInfoReady = WM_USER+0; 
MsgServerInfoReady = WM _USER+1; 
MsgAsyncEvent = WM_USER+2; 


{ Event bitflags defined in 
Windows Sockets Specification } 
FD READ =e rl 


FD WRITE = 2; 
FD _OOB = 4: 
FD ACCEPT = 8; 
FD CONNECT = 16; 
FD CLOSE = 32; 
FD_ALL = 63; 


{ Socket types currently supported } 
SOCK_STREAM = 1; 
SOCK_DGRAM = 2; 


{ Socket option values } 
SO_DEBUG = 1 
SO_ACCEPTCONN = 2 
SO_REUSEADDR = 4; 
SO_KEEPALIVE = 8 
SO_DONTROUTE = 16 
SO_BROADCAST = Se. 


SO_USELOOPBACK 64; 
SO_LINGER = 128; 


SO OOBINLINE = 256; 
SO DONTLINGER = 65407; 
SO_SNDBUF = 4097; 
SO_RCVBUF = 4098; 
SO_SNDLOWAT = 4099; 
SO_RCVLOWAT = 4100; 
SO_SNDTIMEO = 4101; 
SO_RCVTIMEO = 4102; 
SO_ERROR = 4103; 
SO_TYPE = 4104; 


{ Protocol ID numbers } 


IPPROTO IP = 0; 
IPPROTO ICMP = 1; 
IPPROTO GGP = 2; 
IPPROTO TCP = 6; 
IPPROTO PUP = 12; 
IPPROTO UDP = 17; 
IPPROTO IDP = 22; 
IPPROTO ND = 77; 
IPPROTO RAW = 255; 
IPPROTO MAX = 256; 


{ Other WINSOCK constants } 


AF_INET = ae 
INVALID_SOCKET - a5 
SOCKET ERROR = -1; 
INADDR_ANY = 0; 
MAXGETHOSTSTRUCT = 1024; 
SHUTDOWN_RECV = 0; 
SHUTDOWN_SEND = 1 
SHUTDOWN_BOTH = a 
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type 


{ New basic pointer types } 
PPChar = “PChar; 
PInteger = “Integer; 
PLongInt = “LongInt; 


PPLongInt = *PLongInt; 


{ Record types used by WINSOCK functions } 
TWSAData = record 
Version: Word; 
HighVersion: Word; 
Description: array[0..255] of char; 
Status: array[0..127] of char; 
MaxSockets: ShortInt; 
MaxUdpDatagramSize: ShortInt; 
VendorInfo: PChar; 
end; 


THostInfo = record 

Name : PChar; 

AliasList : PPChar; 

AddressType : Integer; 

AddressSize : Integer; 

AddressList : PPLongInt; 

Reserved: array[1..MAXGETHOSTSTRUCT] of char; 
end; 


TServerInfo = record 

Name : PChar; 

Aliases : PPChar; 

Port : Integer; 

Protocol : PChar; 

Reserved: array[1..MAXGETHOSTSTRUCT] of char; 
end; 


TProtocoliInfo = record 
Name : PChar; 


Aliases : PPChar; 

ProtocolID: Integer; 

Reserved: array[1..MAXGETHOSTSTRUCT] of char; 
end; 


TSocketAddress = record 
Family: Integer; 
Port: Word; 
Address: LongInt; 
Unused: array[1..8] of char; 
end; 


TSocketList = record 

Count: Integer; 

DescriptorList: array[1..64] of Integer; 
end; 


TTimeValue = record 
Sec: LongInt; 
uSec: LongInt; 

end; 


{ New WINSOCK pointer types } 


PWSAData = “TWSAData; 
PHostInfo = “THostIinfo; 
PServeriInfo = “TServerInfo; 
PProtocolInfo = “*TProtocollInfo; 
PSocketAddress = “TSocketAddress; 
PSocketList = “TSocketList; 
PTimeValue = “TTimeValue; 
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{ Special type for WINSOCK error table } (ErrorCode:11001; Text: 'Host not found'), 
TErrorMessage = record (ErrorCode:11002; 
ErrorCode: Integer; Text: 'Non-Authoritative Host not found'), 
Text: String[50]; (ErrorCode:11003; Text: 'Non-Recoverable error: FORMERR, 
end; REFUSED, NOTIMP'), 
(ErrorCode:11004; Text: 'Valid name, 
const no data record of requested type'), 
{ Message table — maps WINSOCK error codes to (ErrorCode:0; Text: ‘Unrecognized error code' ) 
messages strings } y 
WinsockMessage: array[0..50] of TErrorMessage = ( 
(ErrorCode:10004; Text: ‘Interrupted system call'), { Prototypes for WINSOCK.DLL functions listed 
(ErrorCode:10009; Text: 'Bad file number'), alphabetically } 
(ErrorCode:10013; Text: 'Permission denied'), function accept(Socket: THandle; Address: PSocketAddress; 
(ErrorCode:10014; Text: 'Bad address’), $ize: Integer): Integer; 
(ErrorCode:10022; Text: 'Invalid argument'), function bind(Socket: THandle; Address: PSocketAddress; 
(ErrorCode:10024; Text: 'Too many open files'), $ize: Integer): Integer; 
(ErrorCode:10035; Text: ‘Operation would block’), function closesocket(Socket: THandle): Integer; 
(ErrorCode:10036; Text: 'Operation now in progress’), function connect(Socket: THandle; 
(ErrorCode: 10037 ; Address: PSocketAddress; Size: Integer): Integer; 

Text: ‘Operation already in progress'), function gethostbyaddr(Address: PLongInt; Size: Integer; 
(ErrorCode: 10038; AddressFamily: Integer): PHostInfo; 

Text: ‘Socket operation on non-socket'), function gethostbyname(Name: PChar): PHostInfo; 
(ErrorCode:10039; Text: 'Destination address required'), function gethostname(Name: PChar; 

(ErrorCode:10040; Text: 'Message too long'), Size: Integer): Integer; 
(ErrorCode: 10041; function getpeername(Socket: THandle; 

Text: ‘Wrong protocol type for socket’), Peer: PSocketAddress; Size: PInteger): Integer; 

(ErrorCode:10042; Text: 'Bad protocol option'), function getprotobynumber ( 
(ErrorCode:10043; Text: ‘Protocol not supported’), ProtocolID: Integer): PProtocolInfo; 
(ErrorCode:10044; Text: 'Socket type not supported’), function getprotobyname(Name: PChar): PProtocolInfo; 
(ErrorCode: 10045; function getservbyport(Port: Integer; 

Text: ‘Operation not supported on socket'), Protocol: PChar): PServerInfo; 

(ErrorCode:10046; Text: 'Protocol family not Supported’), function getservbyname(Name: PChar; 
(ErrorCode:10047; Text: Protocol: PChar): PServerInfo; 

‘Address family not supported by protocol family'), function getsockname(Socket: THandle; 
(ErrorCode:10048; Text: 'Address already in use'), Address: PSocketAddress; Size: PInteger): Integer; 
(ErrorCode: 10049; function getsockopt(Socket: THandle; Level: Integer; 

Text: 'Can''t assign requested address’), OptionFlag: Integer; OptionValue: PChar; 
(ErrorCode:10050; Text: 'Network is down'), $ize: PInteger): Integer; 

(ErrorCode:10051; Text: 'Network is unreachable’), function htonl(Address: LongInt): LongInt; 
(ErrorCode: 10052; function htons(Address: Integer): Integer; 

Text: ‘Network dropped connection or reset'), function inet_addr(IP: PChar): LongInt; 
(ErrorCode: 10053; function inet_ntoa(Address: LongInt): PChar; 

Text: ‘Software caused connection abort'), function ioctlsocket(Socket: THandle; Command: LongInt; 

(ErrorCode:10054; Text: 'Connection reset by peer'), var Argument): Integer; 
(ErrorCode:10055; Text: 'No buffer space available’), function listen(Socket: THandle; 
(ErrorCode:10056; Text: 'Socket is already connected'), BackLog: Integer): Integer; 
(ErrorCode:10057; Text: 'Socket is not connected'), function ntohl(Address: LongInt): LongInt; 

(ErrorCode: 10058; function ntohs(Address: Integer): Integer; 

Text: 'Can''t send after socket shutdown'), function recv(Socket: THandle; Buffer: PChar; 
(ErrorCode: 10059; Size: Integer; Flags: Integer): Integer; 

Text:'Too many references, can''t splice’), function recvfrom(Socket: THandle; Buffer: PChar; 
(ErrorCode:10060; Text: 'Connection timed out'), Size: Integer; Flags: Integer; 

(ErrorCode:10061; Text: 'Connection refused'), Address: PSocketAddress; Size: PInteger): Integer; 
(ErrorCode: 10062; function select(Unused: Integer; ReadList: PSocketList; 

Text: 'Too many levels of symbolic links'), WriteList: PSocketList; CheckList: PSocketList; 
(ErrorCode:10063; Text: 'File name too long'), TimeOut: PTimeValue): LongInt; 
(ErrorCode:10064; Text: 'Host is down'), function send(Socket: THandle; Buffer: PChar; 
(ErrorCode:10065; Text: 'No route to Host'), Size: Integer; Flags: Integer): Integer; 
(ErrorCode:10066; Text: 'Directory not empty'), function sendto(Socket: THandle; Buffer: PChar; 
(ErrorCode:10067; Text: 'Too many processes'), Size: Integer; Flags: Integer; 
(ErrorCode:10068; Text: 'Too many users'), Address: PSocketAddress; 
(ErrorCode:10069; Text: 'Disc quota exceeded'), AddressSize: Integer): Integer; 
(ErrorCode:10070; Text: 'Stale NFS file handle’), function setsockopt(Socket: THandle; Level: Integer; 
(ErrorCode: 10071; OptionFlag: Integer; NewValue: PChar; 

Text: 'Too many levels of remote in path'), $ize: Integer): Integer; 
(ErrorCode: 10091 ; function shutdown(Socket: THandle; 

Text: ‘Network subsystem is unavailable’), Options: Integer): Integer; 

(ErrorCode: 10092; function socket(AddressFormat: Integer; 

Text: ‘Incompatible version of WINSOCK.DLL'), SocketType: Integer; Protocol: Integer): Integer; 
(ErrorCode: 10093; function WSAAsyncGetHostByAddr (Window: HWnd; Msg: Word; 

Text: ‘Successful WSAStartup not yet performed’), Address: PLongInt; Size: Integer; 


ProtocolFamily: Integer; Host: PHostInfo; 
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$ize: Integer): THandle; 
function WSAAsyncGetHostByName (Window: HWnd; Msg: Word; 
Name: PChar; Host: PHostInfo; Size: Integer): THandle; 
function WSAAsyncGetProtoByName (Window: HWnd; Msg: Word; 
ProtocolName: PChar; Protocol: PProtocolInfo; 
Size: Integer): THandle; 
function WSAAsyncGetProtoByNumber (Window: HWnd; 
Msg: Word; ProtocolID: Integer; 
Protocol: PProtocolInfo; Size: Integer): THandle; 
function WSAAsyncGetServByName (Window: HWnd; Msg: Word; 
ServiceName: PChar; ProtocolName: PChar; 
Server: PServerInfo; Size: Integer): THandle; 
function WSAAsyncGetServByPort (Window: HWnd; Msg: Word; 
Port: Integer; ProtocolName: PChar; 
Server: PServerInfo; Size: Integer): THandle; 
function WSAAsyncSelect (Socket: THandle; Window: HWnd; 
Msg: Word; Event: LongInt): Integer; 
function WSACancelAsyncRequest ( 
TaskHandle: THandle): Integer; 
function WSACancelBlockingCall: 
function WSACleanup: Integer; 
function WSAGetLastError: Integer; 


Integer; 


function WSAIsSBlocking: Boolean; 
function WSASetBlockingHook ( 


BlockingFunction: TFarProc): 
procedure WSASetLastError(ErrorCode: 


function WSAStartup(Version: Word; 


WSDataAdadr: 
function WSAUnhookBlockingHook: 


implementation 


{ External directives WINSOCK.DLL routines listed by 


index number } 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
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accept; 
bind; 
Closesocket; 
connect; 
getpeername; 
getsockname; 
getsockopt; 
htonl; 
htons; 
inet_addr; 
inet_ntoa; 
ioctlsocket; 
listen; 
ntohl; 
ntohs; 

recy; 
recvfrom; 
select; 


PWSAData) : 


Integer ; 


external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 
external 


TFarProc; 
Integer) ; 


Integer; 


‘'WINSOCK' 
‘WINSOCK' 
‘'WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘'WINSOCK' 
‘'WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘'WINSOCK' 
‘'WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 


index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 
index 


we owe owe 


-— woe 


= = at 
No+ OOAN OAHKRWHND = 


13s 
14; 
VS: 
16; 
17; 
18; 


external 
external 
external 
external 
external 
external 
external 
external 


function 
function 
function 


send; 
sendto; 
setsockopt; 
function shutdown; 
function socket; 
function gethostbyadar ; 
function gethostbyname; 
function getprotobyname; 
function getprotobynumber ; 
external ‘WINSOCK' index 54; 
function getservbyname; 
external '‘WINSOCK' index 55; 
function getservbyport; 
external '‘WINSOCK' index 56; 
function gethostname; 
external ‘WINSOCK' index 57; 
function WSAAsyncSelect; 
external ‘WINSOCK' index 101; 
function WSAAsyncGetHostByAdadr ; 
external ‘WINSOCK' index 102; 
function WSAAsyncGetHostByName; 
external ‘WINSOCK' index 103; 
function WSAAsyncGetProtoByNumber ; 
external ‘WINSOCK' index 104; 
function WSAAsyncGetprotoByName; 
external ‘WINSOCK' index 105; 
function WSAAsyncGetServByPort ; 
external ‘WINSOCK' index 106; 
function WSAAsyncGetServByName; 
external ‘WINSOCK' index 107; 
function WSACancelAsyncRequest ; 
external ‘WINSOCK' index 108; 
function WSASetBlockingHook ; 
external ‘WINSOCK' index 109; 
function WSAUnhookBlockingHook ; 
external ‘WINSOCK' index 110; 
function WSAGetLastError; 
external ‘WINSOCK' index 111; 
procedure WSASetLastError; 
external ‘WINSOCK' index 112; 
function WSACancelBlockingCall; 
external ‘WINSOCK' index 113; 
function WSAIsBlocking; 
external ‘WINSOCK' index 114; 
function WSAStartup; 
external ‘WINSOCK' 
function WSACleanup; 
external ‘WINSOCK' 
end. 


End Listing One 


index 115; 


index 116; 


‘WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘WINSOCK' 
‘'WINSOCK' 
‘WINSOCK' 
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index 
index 





19; 
20; 
215 
225 
235 
Louies 
52, 
55 


The Must Have Reference Source For 
The Serious Delphi” Developer 


The Entire Text of Over 60 Technical Articles Appearing in 
INFORMANT Delphi™ Informant® in 1995 


The Delphi™ Informant® Works 1995 

CD-ROM Includes: 

Mi Over 60 Technical Articles 

Mi Text and Keyword Search 
Capability 

Mi Improved Speed and 

Performance 

@ All Supporting Code 


— d Sample Fil 
A $105 Value Available Now for only na ees 


$3 Q. 95 @ Electronic Version of Delphi Power Tools Catalog 
eer sean Mi Electronic Version of 
ornia residents a 4% Sales Tax, 
plus $5 shipping & handling for US orders. Borland C++ Power Tools Catalog 
(International orders add $15 shipping & handling) Ml Third-Party Add-In Product Demos 


HM CompuServe Starter Kit with $15 Usage Credit. 


Call Now Toll Free 1-800-88-INFORM 


1-800-884-6367 Ask for offer # PI95 To order by mail, 

send check or Money Order to: 

Informant Communications Group, Inc. 

ATTN: Works CD offer # PI95 

10519 E. Stockton Blvd, Suite 142 Elk Grove, CA 95624-9704 
or Fax your order to 







Get Informed! 


Subscribe to Delphi Informant, The 
Complete Monthly Guide to Delphi 
Development and stay ahead of the rapid 
application development curve. 


Order Now and Get One Issue FREE! 


For a limited time you can receive the first issue FREE plus 12 additional 
issues for only $49.95 That’s nearly 25% off the yearly cover price! 





informoumi 
















Each big issue of Delphi 

Informant is packed with 

Delphi tips, techniques , 

news, and more! 

Client/Server Application 
Development 

@ Delphi Programming 

Wi Using the Borland Database 
Engine 

@ Object -Oriented 
Programming 

Mi Creating Reusable 
Components 

Mi Product Reviews 

i News from the Delphi 
Community 

Mi Delphi User Group 
Information 


916-686-8497 


Payment Method... 


_} Check (payable to Informant | | YES 


Communications Group) 









T fo order, mail or fax the form below or call 
(916) 686-6610 Fax: (916) 686-8497 


[_] Purchase Order-- I want to sharpen my Delphi Programming skills. I’ve checked the subscription plan I’m 
Provide Number interested in below 

I Visa T | Magazine-Only Subscription Plan... 

(J Mastercard 


13 Issues Including One Bonus Issue at $49.95. 


| | Magazine AND Companion Disk Subscription Plan... 


13 Issues and Disks Including One Bonus Issue and Disk at $119.95 


(J American Express 


See. umber The Delphi Informant Companion Disk contains source code, support files, examples, utilities, samples, and more! 

Expiration Date | | Delphi Informant Works 1995 CD-ROM = $39.95 
US residents add $5 shipping and handling. International customers add $15 shipping and handling. 

Signature Name 

International rates 

Magazine-only Company 

$54.95/year to Canada 

$74.95/year to Mexico Address 

$79.95/year to all other countries : ; 

Magazine AND Companion Disk Subscriptions City a State — = Zip Code 

$124.95/year to Canada 

$154.95/year to Mexico Country Sr Phone 

$179.95 to all other countries EF AX e-Mail 


California Residents add 7'4% sales tax 
on disk subscription PI95 


